include(/mnt/Datos/Facultad/Latex/circuit_macros/pgf.m4)
include(/mnt/Datos/Facultad/Latex/circuit_macros/libcct.m4)
   
.PS 
cct_init
  
elen = 1
Origin: Here
	source(up_ elen, AC); llabel(, v_{s})
	resistor(right_ elen); rlabel(, R_{s},)
	{
		resistor(down_ elen); llabel(, R_{G},)
		R: Here
	}
	line right_ elen*0.3
	MOS:mosfet(up_ ,, LEDSQuB,S) with .G at Here;
	line from MOS.S to (MOS.S.x, MOS.S.y - 0.8); ground
	line from MOS.D to (MOS.D.x, MOS.D.y + 0.1)
	line right_ elen*0.75
	{
		resistor(down_ elen*1.45); llabel(, R_{D},)
	}
	line right_ elen*0.7
	resistor(down_ elen*1.45); llabel(, R_{L},)
	line to Origin
.PE


